﻿Public Class MantenimientoEditar
    Private mId As Integer
    Private mMantenimientoBS As BS.Usuarios
    Private mMantenimientoBE As BE.Usuarios


    Public Property Id() As Integer
        Get
            Return mId
        End Get
        Set(ByVal value As Integer)
            mId = value
        End Set
    End Property

    Function DatosValidos() As Boolean
        Dim primerControl As Control = Nothing
        Dim mensajeDeValidacion As String = String.Empty

        Me.txtNombreCompleto.Text = Me.txtNombreCompleto.Text.Trim
        'Me.txtNumeroId.Text = Me.txtNumeroId.Text.Trim
        'Me.txtNombreUsuario = Me.txtNombreUsuario.Text.Trim
        'Me.txtContraseña = Me.txtContraseña.Text.Trim


        'Me.

        If Me.txtNombreCompleto.Text = String.Empty Then
            mensajeDeValidacion = "Nombre Completo es Requerido"
            primerControl = Me.txtNombreCompleto
        End If

        'If Me.mtbCantidadT.Text = String.Empty Then
        '    mensajeDeValidacion = "Cantidad es Requerido"
        '    primerControl = Me.mtbCantidadT
        'End If


        If Not primerControl Is Nothing Then
            MessageBox.Show(mensajeDeValidacion, "Validación", MessageBoxButtons.OK)
            primerControl.Focus()
            Return False

        End If


        Return True
    End Function

    Private Sub MantenimientoEditar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        mMantenimientoBS = New BS.Usuarios
        mMantenimientoBE = mMantenimientoBS.Obtener(Me.Id)
        Me.txtNombreCompleto.Text = mMantenimientoBE.NombreCompleto
        Me.txtNumeroId.Text = mMantenimientoBE.Identificacion
        txtNombreCompleto.Enabled = False
        txtNumeroId.Enabled = False
    End Sub

    Private Sub btnCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCerrar.Click
        Me.Close()
    End Sub

    Private Sub btnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click
        Me.mMantenimientoBS = New BS.Usuarios



        If DatosValidos() Then
            If DatosValidos() Then

                mMantenimientoBE.NombreCompleto = txtNombreCompleto.Text.Trim
                mMantenimientoBE.Identificacion = txtNumeroId.Text.Trim
                mMantenimientoBE.NombreUsuario = txtNombreUsuario.Text.Trim
                mMantenimientoBE.Contraseña = txtContraseña.Text.Trim
                mMantenimientoBE.Perfil = txtPerfil.Text.Trim
                mMantenimientoBE.Estado = 2


                If (Not mMantenimientoBS.Editar(mMantenimientoBE)) Then
                    MessageBox.Show("Problemas al Editar")
                Else
                    Me.DialogResult = Windows.Forms.DialogResult.OK
                End If
            End If
        End If
    End Sub
End Class